﻿Public Class CTComisionFondo

    Private _Fondo As String 
    Private _Cargo As Decimal
    Private _Abono As Decimal 



    Public Sub new ()

    End Sub

    Public  Sub new(Byval Fondo As String, ByVal Cargo As Decimal, ByVal Abono As Decimal)
        _Fondo = Fondo
        _Cargo = If(IsNumeric(Cargo),Cargo,0)
        _Abono = If(IsNumeric(Abono),Abono,0)
    End Sub

    
Public Property Fondo() As String
    Get
        Return _Fondo 
    End Get
    Set(ByVal value As String)
        _Fondo = value
    End Set
End Property


Public Property Cargo() As decimal
    Get
        Return _Cargo 
    End Get
    Set(ByVal value As decimal)
        _Cargo = value
    End Set
End Property


Public Property Abono() As decimal
    Get
        Return _Abono 
    End Get
    Set(ByVal value As decimal)
        _Abono = value
    End Set
End Property


End Class
